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TO EV 
thanks to all o 


had a good 


Now an appoloay from me. Due to the pressures I'm under, work: 
Indug; programming; wife; decorating (and thats just the most 
inportant ones) its proving ver: up with 
replying to your letters. Where possible it is better to use the 
HOT-LINE service but if you nust vrite then please only ask one 
question por letter (often I have a quick enswer to on 

question, but neod to do research cn another which slows down a 
reply to both if they are in one letter) explain the problen, 
keep it short and sweet, and I should be able to cope a little 
better. 


In closing. Any new PLUS D owner 
drive fron MGT, and are now setting & 
please contact MGT cn 0223 317665. 


See you next month. 


Bob Brenchley. Editor. 


DISGiPhe Nas. 


PLUS DAT FAIR 


The PLUS D received it's public | 
London on December 12th. Speak 
stand was under an almost cos! 
doors openca. 


Both the new PLUS D and the Dz: 
was on the stand to promote 
potential members. Despite be: 
advertising and no revievs ber 
well but it was good to see plenty of 
well, 


on display 
talk te e: 
3 it 


ext 
25C 


the PLUS D’ sold 
terest in the 


BETTER BYTES FOR THE PLUS D 


The PLUS D gained its own version of th zytes DISC 
MANAGER package at the Christnas Fair. rogram works 
in ewactly the same way as for the DISCiPLE (see review last 


nonth) 


has been changed to fit in with the altered Dos 


NEW YEAR MICROFAIR 

No sooner is the Christmas Nicr 
cones the first Fair of 1988. It will be held at the usual vei 
on Saturday 6th February. I will be on the Miles Gordon 
Technology stand so cone along for a chat if you can beat the 
crush (and my throat holés out). 


Fair over with then along 


TNCREMENTAL 
ACKUP 
LJ eA ee a Ey 


by: Nev Young. 


Lets start this months quota of "1.3.0 th the second, 


and final, section of the Basic 


U_The Basic Prooral 


Part 2. 


7060 FOR e=1 101 


PR 
36889 THEN PRINT" "; 
7070 POKE @napadér.dirt 


7020 RANDONIZE USR mapbuild 
7080 RETURN 

8000 REM print statics 
8005 LOAD @sourcedisc,0,1 
8010 PRINT + 

8020 PRINT 

8030 PRIN? scount 
NT : BR 
8050 PRINT “Mor 
8060 LET a 
8070 IF 


EM wait for discs 

8510 CLS : PRINT ''' "Please load 
disc; 

@520 IF sourcediscsdestdisc 
8530 PRINT " and load the 
8550 PRINT '' "Then press any k 
8560 PAUSE 0 

8565 CLS 
8566, POKE 
8570 & 


60 To 8550 


9015 co 
9020 Go 
9030 co 
9040 GO 


9060 x 
9070 Go 
9020 Go 
9100 co 
9996 STOP 

9937 CLEAR 29995 
9988 LOAD ae" 75 


Right, thats the Basic done, now I will try and explain how it 
all worke. 


Firstly notice that the program starts at line 9000 and calls 
each section by a GOSUB. The first subroutine at line 100 gets 
the addresses of the machine code routines and variables by 
peeking at a table produced by the assenbler. Then it sets up 
sone peremeters. It is lines 250-285 that you woulda change to 
configure the program for any type of system as follows: 


naxtrack = 40 or 80 
sourcedisc = 1 or 2 

Gest disc = 1 or 2 and may be = sourcedisc 
sides = 1 or 2 for single or double sided discs 
density - 1 or 2 for single or double density 


LEAVE THE REST ALONE UNLESS YOU'RE 
‘SURE YOU KNOW WHAT YOU'RE DOING. 


The next gosub is to 8500 and all this does is wait for you to 
insert the dise or discs into the drives. Gosub 500 uses the 
POKE@ command to load sone values into the m/cade area. Yoo will 
notice that the values are 664 bytes out, to compensate forthe 
base value of POKE@, if you are using the new PLUS D then change 
the value at line 105 from 664 to 8192 (the base address of 
POKE @ in G+DOS). The final thing done by this subroutine is to 
call 2 m/code routine to set ll the memory used as disc buffers 
(from bufferstart to the n/code)to a value of 0. Gosub 600 loads 
the first 40 sectors of the source disc into memory. This is the 
disc directory.  Gosub 700 is used ina few places. If the 
source and dest discs are in the same drive it prompts for the 
operator to change discs. Otherwise it does nothing. 


Gosvb 800. This is where the fun begins. Every sector of the 
dest disc directory is loaded into memory and the m/eode routine 
"compi' is called to compare them with the corresponding sector 
of the source disc, which is in menory as you recall. A value of 
0 from comp! means the file headers are the same, anything else 
and they are not. I also check to see if the last’ byte of the 
sector map is =,0 (line 670), If the headers are not the same OR 
if the last map byte = 0 then I record that fact in en arr 
calling a subroutine at line 7000. You vill also see that I do 
the test twice on double density systems. The subroutine at 7000 
not only records which directory sectors I need to copy but, as 
long as the header does not point to a deleted file, will call 
a n/code to record the sectors marked in the mep for that 
file. As it paccos by it also prints the file nase, snd counts 
how many files need to be copied. 


When I return fron the subroutine at line 800 back to line 
g060 I test for any files to be copied. If there are none then I 
finish by going to the end routine at line 8000. If there are 
files to be copied I do a gosub 1000 and copy all the updated 
directory sectors to the dest disc. Making sure that the lest 
byte of the map = 255, I then do the same for the source dise 
after waiting for it to be loaded if required. The final routine 
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4s at line 4000 this reads as many sectors from the source disc 
25 possible into memory and then copies them to the dest disc. 
Another m/code routine (next) is used to get to sector number 
from the map built up by calls to napbuild in subroutine 7000. 


When all the sectors are copied I report what was done and 
vait for the user to load more discs if required. THE TWO DISCS 
ARE NOW THE SAME. Don't be surprised if the first time you use 
BU it takes a long time. Thats because it will have to copy all 
the files the first time around. For those who do not have the 
ability to assemble the m/code (the coments should make its 
functions clear) I have included a basic procran to poke the 
n/code into memory. It should then be saved to disc with 
name used in line 9898 of the basic program, The basic progré 
BU, should be saved by RUN 9999 


Thats the Basic part of IBU out of the way, but what about the 


nachine code routines? I hear you say. Well next month I will 


give the coding to finish of the system. 


See you next month. 


BARGAIN CORNER 


BRISTOL Forty year old NEWCOMER to the DISCIPLE wishes to swap 
deas and software preferably with someone of sinilar age living 
in or near the Bristol area. Ring 04545 - 3807 or write to 
D.Nethercott, 144 Beach Road, Severn Beach, Bristol, 3812 370. 


80 Prack, 
power supply 
PLUS D, ONLY 


direct connection 
Retford (0777) 701502. 


EPROM for Saga 2000 keyboard (I ruined mine). Write Jack 
390 Rutherford Ave, Redwood City, CA 94061, U.S.A. 
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This space is reserved for you. Any PRIVATE advert (subject 
acceptance) will be run in the next available issue of fornat. 
Tt costs you just £1.25 for up to 30 words. Any software sold 
sust be original copies, with fvll instructions and in working 
order. The publishers will not be held, in any way, respons: 
for adverts in this column. 
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DISC LABEL print (9.20") 
Allows you to keep complete control over 
all your important files/programs.  & 
Helps you make better use of disc space. : 


1 TULL use of Epson compatible printer 
(if on-line) or Hard-copy to 2X printer. 


Supplied on tape for easy transfer 
to any disc format (5.25, 3.5 or 3”). 


RUA Hs SUT ARi 


EEE ERE 


Pi Thel i. 3 Theaues/Postal Orders 
Tor- REDCLIFFE ao ae 


RECOVER 


Get Back Those ERASED Files 


By: JAMES WILLSHER 


This is a BASIC program I have written which enables the 
DISCAPLE user to recover files which they have accidentally 
erased. It works on the basis that the file itself is not 
erased, the file type in the directory ontry is simply set to 
ero to indicate an ERASE@ file. It is therefore possible to 
recover the file. The program uses information given in recent 
issues of FORMAT. 


‘RECOVER’ first of all loads the directory into menory, which 
is stored in the first forty sectors of the disc. Then tho 
memory is analysed, and the relevant data is stored in several 
arrays. These arrays contain the file title, the file type, and 
the length of the file in sectors. As soon as an unused header 
is detected, the array stops filling up. This is because it is 
not possible to have files stored after unused header, as the 
data is stored in the first empty header. These arrays are then 
displayed in pages, one for every 20 headers used, which can be 
flicked through as desired. 


When the erased file is displayed (in red ink) a number 
eft hand side of the title. Hit space to ‘select 
: in the number T have just mentioned. A menu 

8 and you Should input what type of file has Leen 
erased, via a number. 

Then you will be asked if there are any more files. If mi 
than one file is to be recovered, then write down the relev. 
numbers of the files when the catalogue is displayed, 
to this question, then enter the next number from y 
there are no more files to be recovered, just a1 
insert the ‘corrupt! dice. The recovered air 


Al] instructions appear ‘on screen’ and the progras itself is 
very simple and pleasing to use. The success rate of this 

pends on whether the disc has been written to since 
the file(s) were erased. If it hac not, then it should work 
every tine 


The program listing appears after this write-up and should 
present. no problems in typing in. The program was written in 
}28k mode on a Spectrum +2 with a DISCIPLE running GDOS 3b. 
However, it works on a 48k Spectrum, and should work on all 
versions of the GDOS after V3 and on the new PLUS D. 


‘The program is fully error-trapped including, for example, a 
situation where the disc has been left in the "WRITE PROTE 
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state. In this way, my progran is very user friendly. 


I sincerely hope that this program is useful to someone, as it 
has been priceless to ne - I an one of these morons who is not 
clever enough to recover files by an easier method. 


10 REM File Recovery Progran. 
20 REM James Willsher 22/12/87 

30 REM Using data supplied by David Kennedy-FORMAT SEP87, 
31 REM and Nev Young-FORMAT DEC87. 

40 REN 

50 CLS 


O: BORDER 0: INK 5: BRIGHT 1: CLS : CLEAR 4000 


60 RESTORE 
70 IF PEEK 6536 
80 GO SUB 910: 


90 INK 5 
100 DIM a$(60,10): DIM b$(12,8): DIM c$(80,8): DIM e(80): DIM x 
(80) 


110 


70 12: READ n$: LET $(3)=n$: NEXT 4 

320 INT AT 0,1; "DISCIPLE FILE RECOVERY PROGHAM"' 
a3” Isher - DECEMBER 1987.": GO SUB 1160 
130 INK 5: PRINT £0;" ENTER DISC, THEN HIT SPACE.. 
140 PAUSE 0: CLS 
150 LET d=16: LE? t 
LET b=40001: LET 
160 PRINT AT 0,0; "Directory Is Loading-Please Ma: 
3170 GO SUB 1060: FOR T=0 TO 3: FOR S=1 TO 10: 
180 CO SuB 1140 

PRINT AT 9,8; "DIRECTORY LOADED" 

GO SUB 1080: PRINT AT 13,5: "NUMBER 


LET sel: LET i. 


INK 6: PRINT AT 16,15;"0": FOR v= 2 PRIN 
16,476 
IF v9 THEN LET €=15 
FOR ceb TO (b+3): LET anart 
LE? osv: LEP peo-1: GO 70 340 
TF £20 THEN LET x(v)=PEER (D411) 


350 GO suB 380 
360 LET c$(v)-b$(£): LET e(v)= 
370 GO sua 1060 

380 PRINT AT 21,0;"Press any key to catalogue disc.” 


RETURN 


20: CO SUB 730 


NPUT "Which progrem number?";h 
430 IF h>p OR hel THEN CO TO 420 

440 CLS : INK 5: PRINT AT_0,7;"You wish to recover" 

450 INK 2: PLOT 66,150: DRAW 0,11: DRAW 83,0: DRAW O,-11: DRAW 
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-83,0 
460 PAPER 6: INK 0: PRINT AT 2,11;25(h): PAPER 0: INK 5 
470 PRINT AT 4,4; “What type of file is it?" 

480 co suB 1110 

490 PRINT AT 7,9;"1 BASIC" 
"JAT 10,9;"4.CODS" 

$00 PRINT AT 1 
13,9;"7.SCREENS";A? 14,9;"8, SPECIAL’ PILE! 
510 PRINT AT 15,9;"9.SNAPSHOT 128K";AT 16,8;"10.OPEN #TYPE";AT 
17,8;"11 .exzcurE* 

520 co Sua 680 

530 PRINT AT 20,1; INVERSE 1; 
540 PAUSE 0 

550 IF INKEYSe"y" THEN GO TO 420 
560 IF INKEYS="n" THEN GO 10 580 
570 BORDER 2: BORDER 7: GO TO 540 
580 PRINT AT 21,6; INK 3; FLASH 1 
o: cis 

580 POKE 23728255: 23610,255 

600 GO suB 1060: (0000: FOR T=0 TO 3: FOR 
610 EOKE 23728,255: SAVE @2,7,S,¥ 

620 IF PEEK 236100255 THEN PRINT AT 5,9; FLASH 1; INK 2;"DISC 
PROTECTED": FOR x21 TO 15: SORDER 2: PAUSE 2: BORDER 0: NEXT x: 
Go 70 640 

630 Go 70 650 


AT 8,9;"2.N.ARRAY";AT 9,9;"3.$ ARRAY 


9;"6.M/DRIVE FILE" ;AT 


Are there any more files?(y/n)" 


INTER DISC-HIT SPACE": PAUSE 


70 10 


640 PRINT AT 21,0;"*SWITCH THE TAB, THEN HIT SPACE*": PAUSE 0: 
+ PRINT AT 21, "2 GO TO 610 
[ 650 POKE 23728,0: POKE 23610,255 
650 ANY KEY FOR A CATALOGUE...": PAUSE 0 
670 
+ 680 INPUT "Nunber?"jn 
690 TP net OR n>11 THEN GA 7 KAO 
700 LET y=40000+(h*256)~256 
710 POKE y,a 
720 RETURN 
730 CES : INK $: GO SUB 1040: FOR teg TO 
| 740 IF t-o THEN GO TO 800 
| 750 IF e(t)=0 THEN INK 2 
| 760 IF e(t)20 THEN INK 5 
| 770 PRINT t;TAB 4;a$(t);TAB 16;cS(t);7AB 27; x(t)" 
780, INK 5 
790 NEXT t 
800 INK 5; PRINT #0;"KEY 1-7, KEY 0-7, SPACE-SELECT” 
810 RETURN 
820 PAUSE 0 
830 IF CODE INKEYS=49 AND g=1 THEN GO TO 20 
840 IF CODE IN AND 91 -20: GOS 


| uB 730 
850 IF CODE INKEYS=48 AND hop THEN GO TO 620 
860 IP CODE INKEYS=48 AND g<o THEN LET gag+20: LET heh+20: GOS 
UB_730 
870 IF CODE_INKEY 
880 GO TO 820 
890 DATA "ERASED ","BASIC_ "," 
“SRP 40K ",""/ORIVE “, "SCREENS *, 
“expeute 4 
900 RETURN 
| 910 RESTORE 940 


32. THEN RETURN 


“CODE 


ARRAY ","$ ARRAY 
‘SPECIAL *, "sp 


u 


FOR ns0 TO 7 

READ g 

940 DATA 24,60,90,153,24,24,24,24 

950 POKE (65368+n), g 

960 NEXT n 

970 RESTORE 1000 

980 FOR n=0 TO 7 

930 READ ¢ 

1000 DATA 24,24, 24,24,153,90,60,24 

1010 POKE USR "Ben, q 

1020 NEXT nl 

1030 POKE 65367,1: RETURN 

1040 PRINT AT 0,0;"## 73 
PRINT : RETURN 

PLOT 61,126: DRAW 0,11: DRAW 134,0 

INK 5 

1070 RETURN 

1080 INK 3: PLOT 118,38 

1090 DRAW 0,11: DRAW'19,0: DRAW 0, 

1100 RETURN 

1410 INK 3 

1120 PLOT 63,30: DRAW 0,3 

1130 INK 5: RETR’ 

1140 LET MeMs5121 PRINT AT 5,8; "TRACK ";T:AT 5, 
NEXT T 


TYPE 


DRAW O,-11: DRAW 


Ve 


WW -19,) 


DRAW 130,02 DRAW 0,- 


AT 5,2; IN 


IF CODE INKEYS=49 
IF CODE INKEY. 


RT 10, 


2,41 RETURN, 
1180 SAVE 


(RECOVERER" LINE 10 


menbers who have missed past issues of 
worn theirs out through 
popular demand as 


TP (or perhaps 
constant use) ve have nov introduced, by 
hey say, a back-issue service. 


The cost is 60p per copy (0p overseas). Your 
sent out as soon es possible but, in order 
costs down, it may take up to 21 days for us to 


Available Issues 


Iesue 1 — August 1987. 


Issue 3 - October 1987. 
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THE HELP PAGE 


with your DISCIPLE, PLUS D or Spectrum. dont worry, let the 
E sort then out. Note: One question per letter please, and 
renenber that Stanped Addressed Envelope if you want a reply, 


A ifferent look to the Help Fage this month. While I do try, 
I can't be an expert on : so this Ta 
this page to some of the problens I am still look: 


answer to. If you have a solution then please let me know so I 


can pass it on in future pages. 
TASPRINT 
This utility, from Tasmen software, is desi to give fancy 


It can be used most vorsions 
ne nare) but uses the print 
‘one worked out how to con’ 


through the DISCiPLE / PLUS D 


THE WRITER 


letters about The Writer w 


@ version makes 
so it vont work at 


the printer routines won 
direct calls to the Intel 
all. Any ideas? 


HARWARE 
Several 


TIf there's 
hardware then please 


indication as to 
information please? 


SEIKOSHA SCREEN DUMPS 
Host Seixosna 


aump 
please send in a copy. 


SPELL CHECKER 

Does know of a 260 naci 
the Spectrum that is adapted, or col 
DISCIPLE / PLUS D? 


@ code spelling checker for 
be adapted, to the 


NETHORK SOPTHARE 
now of software e_ Interface 1 / 


ere must be some bi id it. 


VU-FiLe 


GETS A NEW LEASE OF LIFE. 


By: HAROLD BURTON 


Readers may be interested in this short conversion to an old 
and trusted favourite. WU-FILE, from Psion Software, vas one of 
the very first database type prograns published for the 

Even now, aftor all thie time it still has a lot to 


Most Spectrum users will have a co} 
libruary cf tapes, if not it can often be 


of VU-FILE in 
cked up for a 


or two at your’ local software shop or at the 2X Microtair in 


Londen. 


To produce the disc version simply type in the new Basic part 
for VU-FILE and save it to disc by SAVE di"VUFILE” LI: 
may be easier to load in the tape version and alter it 
but I leave that up to you. Now type in the CONVERTS! 
RUN it, and set the VU-FILE tape going. The CODE file 
leaded in from tape, converted thes saved to 


when using VU-FILE from disc the only change you 
from the tape version is that a CATalocue of the, di 
before each LOAD All files have “vu_' 


I think you will find this breathes new Life into avery gocd 
program. 


after breaks 
LOAD DI"VUFILE_c"CODE 
100 DIN aS(VAL "32"): LET aeVAL "29785": LET xaVAL "36! 
"a": LET zevAL "80": GO SUB VAL "4000": GOTO USR VAL."29721" 
1990 cs = INK VAL "O": CAT VAL "1" ;"vy_*": PRINT 
**SAVE A FIL = 
2 LET a$( TO VAL "7")ab$: LET s=CODE aS(VAL "11")7VAL 
as (Val "): LET t=CODE a$(VAL "13")sVAL "256"*CODE a5 (VAL "14 
}: GOTO USR a 
1005 SAVE d1"vu_' 
1200 GOTO USR a 
1300 PAPER VAL "1 
i"Press B for BASIC 

1 PAUSE VAL “0” 


+BSCODE s,t: VERIFY 41"VU_"+bSCODE 


Oo" ,VAL "0" 
ER to CHANGE CODE, 


4 

1910 CLS : INPUT "Spacing?" ;TAB Val 

n2";TAB VAL " y)}TAB VAL "26 
Z);TAB VAL "26" ;2 


(x) s7AB _VAL_"26" x 
print code (27+?)" 
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1920 GO svB VAL "4000" 
1960 GoTo UsR a 

2000 IF INKEYS="5" THE 
2010 CLs : PAPER VaL 
T'*LOAD A F: y 


% GOTO VAL "1500" 
INK VAL "0": CAT VAL S 
ile nane (omit VU_):") LINE bs: 


LOAD a1"'¥ 
3000 LPRINT~as| 2"): GOTO USR a 

4000 PORE ev, EPRINT CHRS VAL "27"+CHRS VAL "64'3: 
LPRINT VAL "S1"sCHRS xz: LPRINT CRS VAL "27 


RS VAL "27"41 


S$ 2}: POKE @Va 


"sCHRS VAL "108"=cHRS yz 
L"6",VAL “OM: RETURN 


een quotes (""") or the screen 


sure to count 
be wrong. 


AD bi POKE yb; 

30 FOR 2 70 25192: READ d: FOKE ayé 

50 DATA €5,108,116,101,114,32,112,114,105,110,116, 101 ,114,32,9 
9,111,100,10% ,115, 32,1, 15,5, 54s 32,77 497,107,101 47 , 76,111.97, 100 
132,140,161, 149, 32,102, 105, 108, 101, 68, 73,83,67 

60 save Di*veFILE c*CoDe’ 25088,3622 

AMRIT l N NAT readers are very welcome. We to 
publish Sbstce relating to tne Drsciele, Duus D 


le as a Tasword (2 or 3), The Last 
(vith a printed copy). We can 


black at twice 
well, Do Not crease. 
address and telephone 


send your only version, the post office 
nor are we)s 
addressed envelope if you want your 


which version of the DOS your progr: 
article was written for and if 48k or 126k Spectrum. 
+ Feel free to contact us with your ideas before committing 


s published in 


Renenber ve pay for all articles 
FORMAT, so cet writing. 


